home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Environments / SmallEiffel 0.3.3 / SmallEiffel 68k / misc / msg_self_test < prev    next >
Encoding:
Text File  |  1996-06-13  |  544 b   |  25 lines  |  [TEXT/EDIT]
  1. #!/bin/csh
  2. #
  3. # Error messages self test.
  4. #
  5. # Usage : msg_test
  6. #
  7. #set verbose = 1
  8. if (!($?SmallEiffel)) then
  9.     echo "Environment Variable 'SmallEiffel' not set."
  10.     exit 1
  11. endif
  12. set compile=${SmallEiffel}/bin/compile
  13. echo "Errors Messages Checking"
  14. echo "Compiling Bad Programs of SmallEiffel/lib_msg"
  15. cd ${SmallEiffel}/lib_msg
  16. foreach bad (BAD_REDEFINE1 BAD_REDEFINE2 BAD_REDEFINE3)
  17.     ${compile} ${bad} make >&! ${bad}.newmsg
  18.     diff ${bad}.msg ${bad}.newmsg
  19.     if ($status) then
  20.         echo "Message ${bad} changed"
  21.     else
  22.         echo -n "."
  23.     endif
  24. echo "Done."
  25.